home *** CD-ROM | disk | FTP | other *** search
- object PTFrmOpenDlg: TPTFrmOpenDlg
- Left = 565
- Top = 448
- ActiveControl = FileNameEdt
- AutoScroll = False
- BorderIcons = [biSystemMenu, biMaximize]
- Caption = 'Open'
- ClientHeight = 265
- ClientWidth = 451
- Color = clBtnFace
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- Position = poScreenCenter
- ShowHint = True
- OnCloseQuery = FormCloseQuery
- OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object LookInTxt: TLabel
- Left = 8
- Top = 8
- Width = 38
- Height = 13
- Caption = 'Look &in:'
- FocusControl = PTShellCombo1
- end
- object UpOneLevelBtn: TSpeedButton
- Left = 272
- Top = 4
- Width = 23
- Height = 22
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
- 2222222222222222222200000000000000020FBFBFBFBFBFBF020BFBFBFBFBFB
- FB020FBFB000000FBF020BFBF0FBFBFBFB020FBFB0BFBFBFBF020BF00000FBFB
- FB020FBF000FBFBFBF020BFBF0FBFBFBFB020FBFBFBFBFBFBF02000000000000
- 002220BFBFB02222222222000002222222222222222222222222}
- OnClick = UpOneLevelBtnClick
- end
- object ListBtn: TSpeedButton
- Tag = 2
- Left = 400
- Top = 4
- Width = 23
- Height = 22
- GroupIndex = 1
- Down = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
- 22222FFF22222FFF22224442222244422222888F2FFF888F2FFF4F4200024F42
- 00028F8288828F82888244222222442222228822222288222222222222222222
- 2222222222222222222222222222222222222FFF22222FFF2222444222224442
- 2222888F2FFF888F2FFF4F4200024F4200028F8288828F828882442222224422
- 2222882222228822222222222222222222222222222222222222222222222222
- 22222FFF22222FFF22224442222244422222888F2FFF888F2FFF4F4200024F42
- 00028F8288828F82888244222222442222228822222288222222222222222222
- 2222222222222222222222222222222222222222222222222222}
- NumGlyphs = 2
- OnClick = ViewBtnClick
- end
- object DetailsBtn: TSpeedButton
- Tag = 3
- Left = 423
- Top = 4
- Width = 23
- Height = 22
- GroupIndex = 1
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
- 22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
- 22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
- 22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
- 22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
- 22222F22FFFF2FFF2FFF42200002000200028228888288828882222222222222
- 22222FFFFFFFFFFFFFFF44444444444444448888888888888888222222222222
- 22222222FFFF2FFF2FFF22200002000200022228888288828882222222222222
- 2222222222222222222222222222222222222222222222222222}
- NumGlyphs = 2
- OnClick = ViewBtnClick
- end
- object CreateNewFolderBtn: TSpeedButton
- Left = 336
- Top = 4
- Width = 23
- Height = 22
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333FFFFFFFFFFF3330000000000033333388888888888F3330BFBFBFBFB0
- 33333383333333338F3330FBFBFBFBF033333383333333338F3330BFBFBFBFB0
- 33333383333333338F3330FBFBFBFBF033033383333333338F3830BFBFBFBFB0
- 30333383333333338F8F30FBFBFBFBF0033333833333333388F3300000000003
- 3030338888888888338F330BFBF03303033333383333833838F3333000033030
- 30333333888833838F8F33333333033333033333333338F33338333333333330
- 33333333333333338F3333333333333333333333333333333333333333333330
- 33333333333333338F3333333333333333333333333333333333}
- NumGlyphs = 2
- OnClick = CreateNewFolderBtnClick
- end
- object ShowTreeBtn: TSpeedButton
- Left = 368
- Top = 4
- Width = 23
- Height = 23
- AllowAllUp = True
- GroupIndex = 2
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333300033333333300030F03333333330333000333333333033333333
- 00033330333300030F0333303333033300033330333333333333333033300033
- 333333300030F033333333303330003333333333333333333333330003333333
- 3333330F03333333333333000333333333333333333333333333}
- OnClick = ShowTreeBtnClick
- end
- object ShowDesktopBtn: TSpeedButton
- Left = 304
- Top = 4
- Width = 23
- Height = 22
- Hint = 'Show Desktop'
- Glyph.Data = {
- FE000000424DFE00000000000000760000002800000010000000110000000100
- 0400000000008800000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
- DDDD0000000000000000666C8888888C6CC06EC777777777C7C06C7770877777
- 7C6067F70708777777C08F707F70877777808F07FFF7087777808F78FF0F7077
- 77808FF78F330877778067FF783B308777406C7FF783B30874C066C7FF7F3B30
- 47C06E6C7FFFF3B30CC066666888883B3080DDDDDDDDDDD391DDDDDDDDDDDDDD
- 11DD}
- OnClick = ShowDesktopBtnClick
- end
- object PTShellCombo1: TPTShellCombo
- Left = 72
- Top = 4
- Width = 193
- Height = 22
- HelpContext = 28456
- ShellList = PTShellList1
- Options = [ptscoAutofill]
- DropDownCount = 16
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 0
- Top = 181
- Width = 451
- Height = 84
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 2
- object FileNameTxt: TLabel
- Left = 8
- Top = 10
- Width = 48
- Height = 13
- Caption = 'File &name:'
- FocusControl = FileNameEdt
- end
- object FilesOfTypeTxt: TLabel
- Left = 8
- Top = 38
- Width = 59
- Height = 13
- Caption = 'Files of &type:'
- FocusControl = FileTypesCbx
- end
- object FileNameEdt: TEdit
- Left = 88
- Top = 6
- Width = 277
- Height = 21
- TabOrder = 0
- OnChange = FileNameEdtChange
- end
- object FileNameCbx: TComboBox
- Left = 88
- Top = 6
- Width = 277
- Height = 21
- TabStop = False
- ItemHeight = 13
- TabOrder = 4
- Visible = False
- end
- object FileTypesCbx: TPTCombobox
- Left = 88
- Top = 34
- Width = 277
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 1
- OnSelEndOk = FileTypesCbxSelEndOk
- end
- object OpenBtn: TButton
- Left = 372
- Top = 4
- Width = 75
- Height = 23
- HelpContext = 28529
- Caption = '&Open'
- Default = True
- ModalResult = 1
- TabOrder = 2
- end
- object CancelBtn: TButton
- Left = 372
- Top = 32
- Width = 75
- Height = 23
- HelpContext = 28444
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 3
- end
- object ReadOnlyChk: TCheckBox
- Left = 88
- Top = 60
- Width = 233
- Height = 17
- Caption = 'Open as &read-only'
- TabOrder = 5
- OnClick = ReadOnlyChkClick
- end
- object HelpBtn: TButton
- Left = 372
- Top = 60
- Width = 75
- Height = 23
- Caption = '&Help'
- TabOrder = 6
- Visible = False
- OnClick = HelpBtnClick
- end
- end
- object SplitterContainer: TPTGroup
- Left = 2
- Top = 30
- Width = 447
- Height = 153
- FrameStyle = ptfsNone
- TabOrder = 1
- object PTSplitter1: TPTSplitter
- Left = 0
- Top = 0
- Width = 447
- Height = 153
- Align = alClient
- Color = clBtnFace
- ParentColor = False
- Position = 141
- SplitterWidth = 5
- TabOrder = 0
- object PTSplitter1_pane1: TPTPane
- Left = 0
- Top = 0
- Width = 141
- Height = 153
- TabOrder = 0
- MinSize = 4
- Index = 0
- object PTShellTree1: TPTShellTree
- Left = 0
- Top = 0
- Width = 137
- Height = 149
- Options = [ptstoAutoFill, ptstoDefaultKeyHandling, ptstoContextMenus, ptstoDynamicRefresh]
- BorderStyle = bsNone
- ShowRoot = False
- DragMode = dmAutomatic
- HideSelection = False
- Indent = 19
- OnChange = PTShellTree1Change
- Align = alClient
- ParentColor = False
- TabOrder = 0
- end
- end
- object PTSplitter1_pane2: TPTPane
- Left = 146
- Top = 0
- Width = 301
- Height = 153
- TabOrder = 1
- MinSize = 60
- Index = 1
- object PTShellList1: TPTShellList
- Left = 0
- Top = 0
- Width = 297
- Height = 149
- HelpContext = 28549
- Options = [ptsloAutoFill, ptsloDefaultKeyHandling, ptsloContextMenus, ptsloDynamicRefresh]
- OnFolderChanged = PTShellList1FolderChanged
- Align = alClient
- BorderStyle = bsNone
- ReadOnly = False
- HideSelection = False
- IconOptions.AutoArrange = True
- OnChange = PTShellList1Change
- PopupMenu = LvPopup
- TabOrder = 0
- ViewStyle = vsList
- end
- end
- end
- end
- object LvPopup: TPopupMenu
- Left = 384
- Top = 48
- object View1Mitm: TMenuItem
- Caption = '&View'
- object LargeIcons1Mitm: TMenuItem
- Caption = 'Lar&ge icons'
- Enabled = False
- RadioItem = True
- OnClick = ViewBtnClick
- end
- object Smallicons1MItm: TMenuItem
- Tag = 1
- Caption = 'S&mall icons'
- Enabled = False
- RadioItem = True
- OnClick = ViewBtnClick
- end
- object List1Mitm: TMenuItem
- Tag = 2
- Caption = '&List'
- Checked = True
- RadioItem = True
- OnClick = ViewBtnClick
- end
- object Details1Mitm: TMenuItem
- Tag = 3
- Caption = '&Details'
- RadioItem = True
- OnClick = ViewBtnClick
- end
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Paste1Mitm: TMenuItem
- Caption = '&Paste'
- OnClick = Paste1MitmClick
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object New1Mitm: TMenuItem
- Caption = 'Ne&w'
- object Folder1Mitm: TMenuItem
- Caption = '&Folder'
- OnClick = CreateNewFolderBtnClick
- end
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object Properties1Mitm: TMenuItem
- Caption = 'P&roperties'
- OnClick = Properties1MitmClick
- end
- end
- end
-